home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / StoryWriter1.2.cpt / Story Writer 1.2 / card_2901.txt < prev    next >
Text File  |  1988-02-16  |  4KB  |  163 lines
  1. -- card: 2901 from stack: in.2
  2. -- bmap block id: 6645
  3. -- flags: 0000
  4. -- background id: 2747
  5. -- name: title
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menubar
  9.   hide message
  10.   tabKey
  11. end openCard
  12.  
  13.  
  14.  
  15.  
  16. -- part 1 (field)
  17. -- low flags: 00
  18. -- high flags: 4000
  19. -- rect: left=173 top=141 right=159 bottom=460
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 3
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: title
  28.  
  29.  
  30. -- part 2 (field)
  31. -- low flags: 00
  32. -- high flags: 4000
  33. -- rect: left=220 top=165 right=183 bottom=460
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: character
  42.  
  43.  
  44. -- part 3 (field)
  45. -- low flags: 00
  46. -- high flags: 4000
  47. -- rect: left=135 top=189 right=223 bottom=460
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 0
  51. -- font id: 3
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: theme
  56.  
  57.  
  58. -- part 4 (button)
  59. -- low flags: 00
  60. -- high flags: 2000
  61. -- rect: left=123 top=301 right=320 bottom=231
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Write Story
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   get line 1 of card field "title"
  73.   if it is empty then
  74.     answer "Give your story a title."
  75.     click at 315, 152
  76.     exit mouseUp
  77.   end if
  78.   put it into card field "title" of card "write story"
  79.   put it into card field "title" of card "show story"
  80.   get line 1 of card field "character"
  81.   if it is empty then
  82.     answer "Name character(s) for your story."
  83.     click at 339, 175
  84.     exit mouseUp
  85.   end if
  86.   put it into card field "character" of card "write story"
  87.   put line 1 to 2 of card field "theme" into card field "theme" of card "write story"
  88.   put empty into card field "final" of card "show story"
  89.   put empty into card field "last words" of card "write story"
  90.   visual effect scroll up
  91.   go to card "write story"
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 5 (button)
  97. -- low flags: 00
  98. -- high flags: 2000
  99. -- rect: left=353 top=301 right=320 bottom=441
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Instructions
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   push card
  111.   visual effect iris open
  112.   go to card "Instructions"
  113. end mouseUp
  114.  
  115.  
  116.  
  117.  
  118. -- part 6 (button)
  119. -- low flags: 00
  120. -- high flags: 2000
  121. -- rect: left=453 top=301 right=321 bottom=494
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Quit
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   answer "Quit HyperCard or go to Home Card?" with "Cancel" or "Quit" or "Go Home"
  133.   if it is "Go Home" then
  134.     go home
  135.     exit mouseUp
  136.   end if
  137.   if it is "cancel" then exit mouseUp
  138.   else visual effect zoom in
  139.   domenu "Quit Hypercard"
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 17 (button)
  145. -- low flags: 00
  146. -- high flags: 2000
  147. -- rect: left=242 top=301 right=320 bottom=339
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: 
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   answer "Which story would you like to read?" with "Story 1" or "Story 2" or "Story 3"
  159.   visual effect scroll up
  160.   go to card it
  161. end mouseUp
  162.  
  163.